unit Class_Demo;

interface
uses
  System.Classes;

type
  TDemo=class(TObject)
  public
    procedure Execute10001;
  end;

implementation

uses
  Vcl.Dialogs;

{ TDemo }

procedure TDemo.Execute10001;
begin
  ShowMessage('10001');
end;

end.
